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GENERAL  PURPOSE  HIGH- RESOLUTION  PLOTTING  PACKAGE 

FOR 

TEKTRONIX  4662  PLOTTER  AND  COMPATIBLE  CRT  TERMINALS 


1.  IDENTIFICATION 

1.1.  Identification  Name:  PLOTTER 

1.2.  Subroutines:  XYPLOT,  SCALE,  AXIS,  PLREAD,  PON,  POFF,  TKDASH,  MI UMAX, 

TPLOT,  TERM,  A4662 

1.3.  Programming  Language: 

Language:  FORTRAN  4-Plus,  Version  3.0 
Routine  Type:  Source  Program  and  Subroutines 
Operating  System:  RSX-11M,  Version  3.2 

1.4.  Computer:  Digital  Equipment  Corp.  PDP-11/45 

1.5.  Program  Availability: 

Submittal:  Program  Descriptions  and  Listings 
On  File:  USRD  Source  Library 

2.  PURPOSE 

2.1.  Description  of  the  Routine:  The  program  PLOTTER  generates  a  12-bit 
resolution  plot  of  absissa  and  ordinate  values.  This  program  can  adapt  to 
formatted  or  unformatted  data  contained  in  one  or  two  files.  PLOTTER  also 
has  the  capability  to  allow  the  user  to  manually  enter  points  for  an  XY 
plot.  The  program  contains  the  following  options: 

•  Automatic  Scaling 

•  Point  Plot 

•  Choice  of  Line  (solid,  dashed,  dot-dash,  small  dashes) 

•  Create  New  Data  File 

•  Labels 

•  Multiple  Curves  on  One  Graph 

2.2.  Program  Background:  The  PLOTTER  program  was  designed  to  provide  USRD 
with  an  interactive  graphics  package  that  is  both  versatile  and  easy  to  use. 

3.  USAGE 

3.1.  Preparation  of  Terminal  and  Plotter:  The  preparation  needed  before 
running  the  program  PLOTTER  depends  upon  the  instrument  used;  either  the 
Tektronix  CRT  or  the  Tektronix  4662  plotter  may  be  used  for  plotting.  If  a 
Tektronix  CRT  is  used,  one  needs  only  to  be  logged  on  the  computer  and  to 
type  RUN  PLOTTER. 
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Since  the  program  is  self-explanatory  (see  Sec.  4.1.)  there  is  no  need 
for  further  instructions.  However,  if  the  Tektronix  4662  flat-bed  plotter 
(Fig.  1)  is  used,  the  plotter  must  be  prepared  before  running  the  program. 
This  involves  a  few  simple  steps. 


SET  UPPER 
RIGHT  POINT 


Fig.  1  -  Flat-bed  plotter  (Tektronix  4662) 

•  Rock  the  POWER  switch  to  the  right  to  turn  the  plotter  on. 
The  POWER  indicator  will  light  and  the  pen  will  move  down 
along  the  right  boundary  until  it  reaches  the  lower  right 
comer  where  it  will  stop. 

•  Depress  the  LOAD  key  to  its  locked  position.  This  will 
lift  the  pen  and  move  it  to  the  LOAD  position  (upper  right 
corner  of  platen),  and  the  electrostatic  paper  hold-down 
will  be  disengaged. 

•  Position  a  new  piece  of  paper  on  the  platen  so  the  bottom 
edge  of  the  paper  lays  evenly  along  the  paper  guide. 
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•  Press  the  LOAD  key  to  release  it  from  its  locked  position; 
this  will  activate  the  electrostatic  paper  hold-down.  If 
"bubbles"  appear  under  the  paper,  smooth  them  out  with 
your  hand. 

•  Choose  a  scale  so  that  the  graph  fits  the  page. 

Use  the  joystick  to  position  the  pen  to  the  lower  left 
corner  of  the  paper. 

•  Press  the  SET  LOWER  LEFT  key  and  hold  it  down  until  the 
plotter  bell  rings. 

•  Using  the  joystick,  move  the  pen  to  the  upper  right  comer 
of  the  paper. 

•  Press  the  SET  UPPER  RIGHT  key  and  hold  it  down  until  the 
plotter  bell  rings. 

After  logging- in  on  the  terminal,  you  may  now  type  RUN  PLOTTER  <CR> 
(<CR>  represents  depressing  the  RETURN  key).  The  graphs  produced  on  the  CRT 
and  on  the  flat-bed  plotter  (Tektronix  4662)  are  identical  except  there  is 
12-oit  resolution  on  the  Tektronix  4662  and  10-bit  resolution  on  the  CRT 
plots.  To  ensure  a  12-bit  resolution,  the  rear-panel  switches  of  the  4662 
must  be  properly  set.  These  parameter  settings  are  vital  to  proper  system 
operation.  Figure  2  shows  the  switch  positions. 


Fig-  2  -  There  are  four  hexadecimal  switches  labeled 
A,  B,  C,  and  D  in  the  rear  panel  of  the  4662.  The 
switches  should  be  set  at  the  2321  position  as  shown. 

3.2.  Input:  The  user  must  supply  the  name  of  the  single  file  containing  the 
ICY  coordinates  or  the  names  of  the  files  containing  the  X  data  and  the  Y 
data.  The  data  files  can  be  formatted  or  unformatted.  As  an  option,  the  XY 
data  can  be  entered  interactively.  This  option  will  store  the  data  in  two 
unformatted  files:  DATAX.DAT.  and  DATAY.DAT. 


3.3.  Output:  A  typical  output  is  shown  in  Section  4.  The  output  is 
primarily  the  CRT  plot  or  4662  plot  with  appropriate  labels. 


3.4.  Limitations:  The  data  arrays  have  been  dimensioned  at  1000.  To 
accommodate  more  than  1000  points  the  source-program  statement  must  be 
changed. 

3.5.  Format:  PLOTTER  can  accommodate  data  file(s)  containing  one  X  or  Y 
value,  or  one  XY  coordinate  per  line  in  any  format. 

4.  TEST  METHOD  AND  RESULTS 

To  test  PLOTTER,  four  data  files  were  created  in  different  formats.  The 
interaction  found  in  Section  4.1.  is  an  example  of  the  type  of  responses 
needed  for  this  routine.  Sections  4.2.  and  4.3.  give  examples  of  the  graphs 
produced  by  PLOTTER  on  the  Tektronix  4662. 

4.1.  Running  PLOTTER:  This  is  an  example  of  the  interaction  involved  in 
running  the  program. 

RUN  ©LOTTER  <CS> 

00  YOU  WANT  TO  CREATE  NEW  OATa  FU.ES?  Y/N:  M  <CS> 

ENTER  NUMBER  OF  POINTS  TO  3E  PLOTTED:  *00  <C2> 

COORDINATES  CONTAINED  I N  I  OR  2  FILES?  I  <CJJ> 

ARP  FILES  (UNFORMATTED  OR  ( 2 )  FORMATTED :  7,  <C?> 

ENTER  FORMAT  TO  USE  FOR  READING:  (IE.  (2FIQ.0)  )  (F4.  I  ,F7 .  ; 3  <C2> 

FILENAME  FOR  X,  Y  DATA:  CAL  10. PAT  <C2> 

DO  YOU  WANT  AUTOMATIC  SCALING?  Y/N  N  <CK> 

XMIN  :  0.20000000C+01 
XMAX  =  0. ;04000Q2E*02 
YMIN  s  0. 4997600  15  4-01 
YMAX  =  0.5084710 1E»0 1 

Enter  the  xmin,xmax,ymin,ymax  you  wish  to 

USE  SEPARATED  BY  COMMAS:  3 . 0  .  33 . 0 . 4  .  <j  7,  :  .  13  <C5> 

ENTER  THE  4  OF  X  TIC  MARKS, 4  OF  Y  TIC  MARKS:  <CR> 

DO  YOU  WANT  POINT  PLOT?  Y/N  v  <C!2> 

DO  YOU  WANT  LABELS?  IF  UStNG  CRT,  TYPE  N;  Y  <C3> 

TYPE  IN  LABEL  FOR  PLOT:  CALIBRATION  AT  U [C!  <C*> 

TYPE  IN  LABEL  FOR  X  AXIS:  PRESSURE  <C*> 

TYPE  IN  LABEL  FOR  Y  AXIS:  VOLUME  <CR> 

00  YOU  WANT  ANOTHER  CURVE  ON  THIS  AXIS?  Y/N  Y  <Cff> 

YOU  HAVE  A  CHOICE  AS  TO  WHICH  TYPE  LINE  TO  USE . 

SOLID  LIME  -  TYPE  !  DASHED  LINE  -  TYPE  2 

DASH-DOT  t_lNE  -  TYPE  5  SHORT  DASHES  -  TYPE  4  <CR> 

00  YOU  WANT  TO  CREATE  NEW  DATA  FILES?  Y/N:  N  <CR> 

ENTER  NUMBER  OF  ©OINTS  TO  3E  PLOTTED:  ^0  <CK'- 

COORDINATES  CONTAINED  IN  I  OR  2  FILES?  t.  <CR> 

ARE  MISS  (l)UflFO***Ar*ED  OR  ( 2 )FORMATTeD?  2  <C?> 

ENTER  FORMAT  TO  JSE  'OR  P.EAOING:  (IS.  CF10.0)  )  C F 1 3  .  U  <C?> 

filename  for  x,r  da: A:  acALU.QAT  <CR> 

DO  YOU  -ANT  ANOTHER  CURVE  ON  THIS  AXIS?  Y/N  N  <C?> 

TO  0Rap«  another  curve,  type  Run  ©lOTtsr 


NOTE:  All  underlined  portions  are  user-supplied 


VOLUME 


4.2.  PLOTTER  Output  Example:  Figure  2  is  a  typical  plot  of  four  experimental 
data  sets  and  a  rational-fraction  curve  fit  to  the  data. 
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4.3.  PLOTTER  Output  Example:  Figure  4  is  another  example  of  the  output  from 
the  Tektronix  4662  plotter.  This  plot  illustrates  the  various  line  types 
thac  can  be  obtained. 


PRESSURE 


Fig.  4 
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APPENDIX  A 


SOURCE  LANGUAGE  LISTING 


PLOTTER  PROGRAM 
SEPTEMBER. 1980 

PROGRAMMED  BV  TINA  RUGGIERO  AND  BOB  ANDERSON 


THIS  PROGRAM  IS  DESIGNED  FOR  THE  TEXTRON  I X-4662  FLAT  BED  PLOTTER 
IN  WHERE  X  AND  Y  DATA  CAN  BE  PLOTTED  IN  THE  FOLLOWING  FORMS: 

1)X  ANO  Y  DATA  IN  SEPARATE  FILES-UNFORMATTED 

2>X  AND  Y  DATA  IN  SEPARATE  FILES-FORMATTED 

3>X  AND  Y  DATA  IN  SAME  F I L E -UNFORMATTED 

4  ) X  AND  Y  DATA  IN  SAME  F I LE-FORMATTE D  OR 

5 )POI NTS  CAN  BE  INPUTED  MANUALLY. 


SUBROUTINES  USED  ARE:  TPLOT.  XYPLOT,  TERM.  AXIS.  MINMAX,  TXDASH . 

A4662,  PON,  POFF,  SCALE,  PLREAD 


LIMITATIONS: 

DATA  ARRAYS  ARE  DIMENTIONED  AT  1000  POINTS 
DATA  MUST  BE  REAL 


NOTE  : 

THERE  IS  A  PROGRAM  CALLED  'UEDIT '  WHICH  CAN  BE  USED  FOR 
EDITING  UNFORMATTED  SINGLE  ARRAYS. 
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BEFORE  RUNNING  PROGRAM,  TURN  PLOTTER  ON,  LOAD  PAPER,  AND  SET  THE 
LOWER  LEFT  AND  UPPER  RIGHT  POINTS 


BYTE  DATAX<  32  ) ,  DATAY<  32  > ,  COORU).  ILFA(70>.  ITXT(148> 

REAL  X! 2050) , V<  2050) .XMIN.XMAX, YM1N, YMAX.XMIN1 .XMAX1 , YMIN1 , YMAX1 , 
1  XRANG , YRANG , DASH( 8  ) 

INTEGER  NPOINT.NPONT.LENX,  LENY,  NANS, 

1  ITYPE,XVAL(2050>,YVAL<2050), 

1  ITYMAX, ITXMIN, ITYMIN 

CALL  ERRSET! 29. . .FALSE. .FALSE  ...  > 

CALL  ERRSET< 30 . . . FAL SE . . . . FAL SE . , .  ) 


ICENT  IS  HALF  THE  NUMBER  OF  CHARACTERS  USED  IN  THE  LABEL 


ICENT-42 

NDASH-1 


POFF  TURNS  THE  PLOTTER  OFF 


CALL  POFF <  5  ) 
0  WRITE (5.11) 


IF  YOU  HAVE  YOUR  DATA  ON  A  FILE  YOU  DON'T  WANT  A 
NEW  DATA  FILE. 


1  FORMAT! / , 1 SDO  YOU  WANT  TO  CREATE  NEW  DATA  FILES?  Y/N:  •> 
READ  (5.12JNANS 

2  FORMAT! AI ) 

NAN- ' N' 

IF  <  NANS  .EO.  *  N  *  >  GO  TO  15 
IF  ! NANS  .EO.  'Y' )  GO  TO  15 
GO  TO  10 


XYPLOT  IS  WHERE  NEW  OATA  FILE  IS  CREATED  IF  POINTS 
ARE  ENTERED  MANUALLY 


15  CALL  XYPLOTIX. Y. NPONT) 

GO  TO  2 a 

16  WRITE! 5,17) 

READ! 5 , 1 8  >NPOI NT 

17  FORMAT! /,' SENTER  NUMBER  OF  POINTS  TO  BE  PLOTTED:  '1 


C 

c 

c 

c 

c 

c 

c 


18  FORMAT!  14) 


IF  YOU  DON’T  KNOW  THE  NUMBER  OF  POINTS  IN  THE  FILE. 
MAKE  SURE  YOU  ENTER  A  NUMBER  THAT  IS  POSITIVELY 
LARGER  THAN  THE  NUMBER  OF  POINTS  YOU  HAVE. 


C  . 

C  : 

C  :  PLREAD  DETERMINES  THE  NUMBER  OF  FILES  AND  THE  FORMAT  THAT  YOUR 

C  :  DATA  IS  IN 

C  : 

C  . 


CALL  PLREAD<X,Y,NPOINT> 


NPONT-NPOINT 

20  IF ! ANSW  .EQ.  ' Y ’ )CALL  PON<5> 

IFIANSW  .EQ.  ' Y ' )GO  TO  60 


C  . 

C  • 

C  :  MINMAX  DETERMINES  THE  MINIMUM  AND  MAXIMUM  VALUE  OF  AN  ARRAY 

C  : 

C  : . 


CALL  MINMAX! X , XMI N , XMAX . NPONT ) 
CALL  MINMAX! Y.YMIN.YMAX, NPONT) 
WRITEI5.21 ) 


C 

C 

C 

C 

c 

C 


AUTOMATIC  SCALING  WILL  SCALE  YOUR  DATA  AND  WILL 
CALL  THE  SUBROUTINE  AXIS. 
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FORMAT!/, 'SDO  YOU  WANT  AUTOMATIC  SCALING?  Y/N 
READ <  5.23 )AUTO 
F ORMAT ( AI  ) 

I F  <  AUTO . HE .  ' Y  *  )GO  TO  30 


SCALE  DRAWS  AND  LA8ELS  AXIS 


CALL  SCALE <  XM I N-( XMI N*5 . 0E-05 > , XMAX*!  XMAX«5.0E-05 ) , XMI N 1 , XMAX I , NTICX ) 
CALL  SCALE  ( YMIN-( YMIN«5.0E-05  )  , YMAX*! YMAX-5.0E-05 ) . YMIN1 .YMAX1 .NTICY  > 
GO  TO  42 

THE  X  AND  Y  MIN  ANO  MAX  WILL  BE  PRINTED. 

WRITE (5.31  )XMIN,XMAX,YMIN, YMAX 

FORMAT!  '  XMI N» ‘  ,  E  1 5 . 8 , /  ,  *  XMAX- ' , E 1 5 . 8 . / , 1  YMI N- 1 , E 15 . 8 , / , 

1  •  YMAX-' ,E 15.8) 

WRITE (5. 32) 

WRITE  <5,33) 

FORMAT < / , ‘  ENTER  THE  XMI N , XMAX , YMI N , YMAX  YOU  WISH  TO  ■  > 

FORMAT <  ' S  USE  SEPARATED  BY  COMMAS:  -> 

READ( 5,34 >XMI N 1 . XMAX I , YMI N 1 , YMAX  1 
FORMAT! 4E 1 S .0 ) 

WRITE! 5.40) 


TIC  MARKS  ARE  THE  DIVISIONS  ON  THE  AXIS 


FORMAT! /.■ SENTER  THE  #  OF  X  TIC  MARKS.#  OF  Y  TIC  MARKS: 
READ  <5.41  )NTICX. NTICY 
FORMAT <  2 1  2 ) 

CONTINUE 


THESE  VALUES  ARE  THE  MAX.  &  MIN  OF  THE  TEKTRONICS  PLOTTER 


TXMIN- 

txmax- 

TYMIN- 
TYMAX - 
ITXMIN 
ITXMAX 
I TYMIN 
I TYMAX 
GO  TO 


600 

3999 

550 

2731 

-TXMIN 

-TXMAX 

-TYMIN 

-TYMAX 

72 
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THE  SUBROUTINE  SCALE,  AUTOMATICALLY  SCALES  THE  DATA  AND  CALLS 
SUBROUTINE  AXIS 


CALL  PON<  5  > 
CALL  TERM( 0,0) 


CALL  AXIS! XMIN 1 , XMAX1 . NTICX , TXMIN ,TXMAX , YMINl , YMAX 1 , NTICY .TYMIN , 
1  TYMAX.0) 


A4662  CHANGES  THE  SIZES  OF  THE  CHARACTERS  IN  LABEL 


CALL  A4662( 5 , 'A' ,56,80,#,#) 

SCALE  THE  POINTS 

XRANG-XMAX1-XMIN1 

TXRANG-TXMAX-TXMIN 

YRANG-YMAX1-YMIN1 

TYRANG-TVMAX-TYMIN 


THIS  SECTION  DETERMINES  THE  TYPE  LINE  DESIRED.  WHEN  NDASH-1 
-SOLID  LINE.NDASH-2-DASHED  LINE, N DASH-3- DASH-DOT, 

AND  NDASH-4  IS  SMALL  DASHES. 


60  CONTINUE 

IF  ( NDASH  .EQ.  1)  DASH< 1  >-2000.0 

IF  (NDASH  .  EQ .  2  >  DASH< 1 >-40.0 
IF  (NDASH  .EQ.2 >DASH< 2 >»40.0 


I F  <  NDASH  .EQ.3)DASH< 1 >*50.0 
I F  <  NDASH  .EQ.3)DASH(2>-50.0 
I F ( NDASH  .EQ.3)DASH(3)-4.0 
I F  <  NDASH  .EQ.3>DASH(4>»50.0 


I F ( NDASH  .EQ. 4 )DASH< 1 >-10.0 
I F ( NDASH  .EQ. 4 ) DA SHI  2  >  -25 .0 
I F ( NDASH  .EQ.4  )DASH<  3 ) «  1 0 . 0 
I F  <  NOASH  .EQ.4)DASH(  4)^25. 0 
I F ( NDASH  .EQ.4 >0ASH< 5 >-10.0 
I F ( NDASH  .EQ. 4  >DASH< 6J-25.0 


1 F ( NDASH  .EQ.4JNDASH-6 
I F ( NDASH  . EQ . 3  >NDASH»4 
MO-1 


n 


63 


OO  62  I-l.NPONT 

IF! Y(  I  >  .LT. YMIN1  .OR.  X( I  )  .LT.  XMIN1  .OR.  X<I)  .GT.  XMAXl)GOTO  62 
XVAU  ! MO  > - 1  NT! < ( X( I )-XMI N 1 )*!  TXRANG  )/<  XRANG  >  1+TXMIN  > 

YVAL { MO  ) » I  NT! < { V < I  1-YMIN1  )*!  TYRANG  )/( YRANG  >  >  +TYMI N  > 
FORMAT(2£15.3,2I4  > 


TPLOT  POSITIONS  PEN  AND  WHEN  ITYPE<0,  A  POINT  IS  DRAWN 


IF  !  NAN  .EQ.  ' Y '  )  CALL  TPLOT  <  XVAL  i  MO  ) ,  YVAL  <  MO  >  ,  - 1  ) 


TKDASH  PLOTS  THE  DESIRED  TYPE  LINE 


IF  <  NAN  .NE.  'YU  CALL  TKDASH! XVAL < MO  ), YVAL < MO >, MO . DASH , NDASH ) 

MO-MO+1 

CONTINUE 

CALL  TPLOT(  XVAL  (  MO  )  ,  YVAL  (  MO  )  ,  AT ) 


TERMU.0)  DUMPS  THE  BUFFER 


CALL  TERM( 1,0) 
CLOSE! UNIT- 1 ) 
CLOSE! UNIT-2 ) 
CONTINUE 
CALL  POFF ! 5  > 
WRITE! 5.70) 


THIS  ALLOWS  FOR  UP  TO  4  CURVES  ON  i  GRAPH. 


70 


71 


72 


FORMAT! /.' SOO  YOU  WANT  ANOTHER  CURVE  ON  THIS  AXIS?  Y/N  U 
READ! 5,71 JANSW 
FORMAT! A1 ) 

I F ( ANSW  .EO.  'Y')  GO  TO  120 

GO  TO  140 

CONTINUE 

I  TYPE  *0 

WR I TE !  5 , 80 ) 


L 


i: 


IF  YOU  DON'T  WANT  A  LINE  PLOT  YOU  WILL  GET  A 
POINT  PLOT. 


30  FORMAT! / , ' SDO  YOU  WANT  POINT  PLOT?  Y/N  ') 

READ ! 5,81 )NAN 
81  FORMAT! A1  ) 

IF  ( NAN  .EQ.  'Y* >  ITYPE--1 
WRITE ! 5 . 82  ) 


C 

C 

C 

c 

c 

c 


82  FORMAT!/, 'SDO  YOU  WANT  LABELS?  IF  USING  CRT,  TYPE  N:  ') 
READ! 5,83)1  LAB 

83  FORMAT! A2  ) 

IF!  ILAB  .EQ.  '  N  ■  )  GO  TO  S3 
WR I TE <  6 , 84  ) 

84  FORMAT!/, ' STYPE  IN  LABEL  FOR  PLOT:  •) 


THERE  ARE  THREE  LABELS.  ONE  LABEL  IS  THE  TITLE  LABEL 
AND  THEN  THERE  IS  A  LABEL  FOR  THE  X  AND  Y  AXIS. 


C  . 

C  : 

C  :  ICNT  IS  THE  LENGTH  OF  WORD,  ILFA  IS  THE  WORD 

C  : 

C  : . . . 


90  READ!  5,91  1ICNT,  ILFA 

91  FORMAT! Q. 70A1 > 

IF! ICNT.EQ.01GO  TO  93 
DO  92  I»1,ICNT 
ITXT! I  )»ILFA!  I  ) 

92  CONTINUE 
NT  = ICNT 

IF!  A  .EQ.DGO  TO  111 
I F !  B  .EQ.DGO  TO  113 


C  . 

C  : 

C  :  PON  TURNS  THE  PLOTTER  ON 

C  : 

C  : . 


93  CALL  PON! 5) 
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*  "■'C' 


o  n  n  n  n 


TERM! 0,0)  CLEARS  THE  SCREEN 


CALL  TERM(0.0) 

CALL  TPLOT(0, 2400,0) 

I F  (  NT  .GT.  DWRITE  ( 6 . 100 H ITXT< IX ) , IX-1 .NT ) 
100  FORMAT! '  1 ,T<ICENT-< ICNT/2 > > , < NT>A1 ) 

CALL  POFF(S) 

WR I TE  <  5 , 1 10 ) 

110  FORMAT! /.' STYPE  IN  LABEL  FOR  X  AXIS:  ') 

A*1 

GC  TO  90 

111  CALL  TPLOT(0, 250,0) 

ICENT-50 

CALL  PON! 5) 

CALL  A4S62!S, 'A' ,50.75,0,0) 

CALL  TERM! 2 ,0) 

WRITE! 6, 100) ! I  TXT! IX), IX-1 .NT) 

CALL  POF F ! 5  ) 

WRITE! 5,112) 

112  FORMAT! /,' STYPE  IN  LABEL  FOR  V  AXIS:  ‘> 

B*1 

A-0 

GO  TO  90 

113  CALL  TP LOT! 125,0,0) 

ICENT-35 

CALL  PON! 5) 

CALL  A4662! 5. 'A1 ,50,75,90,0) 


CALL  TERM! 2 ,0 ) 

WRITE! 6, 100)! ITXT! IX ) , IX-1 , NT ) 

CALL  A4662!5, 'A' ,44,60,0,0) 

GO  TO  51 

120  WRITE! 5,121) 

121  FORMAT!/,'  YOU  HAVE  A  CHOICE  AS  TO  WHICH  TYPE  LINE  TO  USE.  ’> 
WR I TE ( 5 , 122) 

122  FORMAT!/,'  SOLID  LINE  -  TYPE  1  DASHED  LINE  -  TYPE  2') 

WRITE! 5, 123  > 

123  FORMAT! 'S  DASH-DOT  LINE  -  TYPE  3  SHORT  DASHES  -  TYPE  4  ') 

READ  ! 5 , 124  1N0ASH 

124  FORMAT!  ID 
GO  TO  10 

125  WRITE (5,130) 

130  FORMAT!'  ENTERED  WRONG  DATA  FILE’) 

CLOSE!UNIT»5> 

CALL  PLREAD!X,Y,NPOINT) 

131  WR ITE <  5 , 1 30 > 

CALL  PL  READ! X , Y , NPOI NT ) 

140  WRITE! 5. 141) 

141  FORMAT!/, '  TO  GRAPH  ANOTHER  CURVE,  TYPE  RUN  PLOTTER') 

ENO 
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APPENDIX  3 


SUBROUTINES 

The  following  subroutines  are  those  required  for  the  program  PLOTTER: 
Subroutine:  XYPLOT 


THIS  SUBROUTINE  CREATES  TWO  UNFORMATTED  REAL  ARRAYS 
PROGRAMMED  BY  TINA  RUGGIERO 
SEPTEMBER.  1980 


SUBROUTINE  XYPLOT! X . Y , NPONT > 


THE  ARGUMENTS  X.Y.NPONT  ARE  RESPECTIVELY.  THE  ARRAY  CONTAINING 
ABSISSAS.  THE  ARRAY  CONTAINING  ORDINATES.  AND  THE  NUMBER  OF 
POINTS  TO  BE  PLOTTED. 


REALX! I  ).Y(  1  ) 

INTEGER  I , SUB, ANS.N PONT 

WRITE!S, 10) 

10  FORMAT ( // , '  ENTER  ORDERED  PAIR  SEPARATED  BY  A  COMMA') 

1-0 

WRITE (5,20) 

20  FORMAT!/'  WHEN  FINISHED  ENTERING  DATA, TYPE  "CTRL  Z“  '  > 

OPEN(UNIT«l, NAME - ' DATAX . DAT ' ,TYPE='NEW' , FORM- ’ UNFORMATTED ' ) 
OFEN(UNIT-2, NAME  - ' DATAY . DAT  1  .TYPE- ' NEW' , FORM- ' UNFORMATTE D '  ) 
15  I -  I  +  1 

WR I TE ( 5 , 22  ) 

22  FORMAT!  / ' SDATA?  ') 

READ! 5,30, END-49 )X!I),Y(I) 

30  FORMAT ( 2E 1 5 . 8  ) 

GO  TO  15 

49  CLOSE! UNIT-5  ) 

WRITE! 5,50) 

50  FORMAT! /,' SOO  YOU  WANT  TO  CHANGE  ANY  VALUES  ( Y/N )?  ’) 

READ! 5 , 60  >ANS 

60  FORMAT <  A  X  > 

IF  ! ANS . EQ . 'N' )GO  TO  40 

WRITE! 5, 70) 

70  FORMAT! ' SENTER  SUBSCRIPT  NUMBER  OF  CORRECTION  ') 

READ ! 5 . 30  >  SU3 
80  FORMAT! 12) 

WR I TE ! 5 , 90  > 

90  FORMAT! ' SRE-ENTER  BOTH  THE  X  AND  Y  VALUES  ') 

READ  15.30)  X! SUB > , Y< SUB > 

GO  TO  49 

40  NPONT-I-1 

DO  91  I-l , NPONT 


(continued) 
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Subroutine 


XYPLOT  (continued) 


WR I TE  ( 1 >X!  I > 

WRITE! 2  )Y!  I  > 

91  CONTINUE 

CLOSE  <  UN  I T- 1  ) 

CLOSE { UNIT-2  ) 

WRITE (5. 800) 

800  FORMAT!/,’  REMEMBER  YOU  HAVE  JUST  CREATED  TWO  UNFORMATTED  ARRAYS’) 
WRITE  ( 5,801 ) 

801  FORMAT!'  WHICH  ARE  CALLED  0ATAX.DAT  AND  DATAY.DAT*) 

WRITE! 5, 100) 

100  FORMAT!/. ’  DATA  FILE  CLOSED’) 

RETURN 

END 


Subroutine:  SCALE 

Entry:  AXIS 


SUBROUTINE  SCALE ( DMN , DMX . SMN , SMX , NDIV  > 

•SCALE”  DETERMINES  AN  APPROPRIATE  SCALE  WITH  NEAT  LABELS 
AT  MULTIPLES  OF  1,2,  OR  5. 

REQUIRES: 

DMN-MIN  DATA  VALUE 
DMX-MAX  DATA  VALUE 
RETURNS: 

SMN-MI N  SCALE  VALUE 
SMX-MAX  SCALE  VALUE 
NDIV-NUMBER  OF  SCALE  DIVISIONS 
L.  D.  LUKER  8/15/80 

REVISED  BY  TINA  RUGGIERO 

TEKINT!Z)*ANINT(Z-. 499999) 

NFMT! VAL  >-MI N 1! 3 . -TEKI NT! 1 . +ALOG10! ABS! VAL  )  >  ),2.  ) 

D  TYPE  *, 'SCALE  DMN* ’ , DMN , ’  DMX-', DMX 

R-! DMX-DMN >/6. 

S»10.**!TEKINT!ALOG10!R> >  ) 

T-R/S 

IF  IT.GT.2)  GOTO  110 
IF  (T.EQ.l >  GOTO  130 
S-S*2 
GOTO  130 

110  IF  (T.GT.5)  GOTO  120 

S»5*S 
GOTO  130 
120  S-10*S 

130  SMN-TEKINT! DMN/S ) 

SMN-S*! SMN*2  > 

140  IF  < I SMN-OMN  )/! DMX-DMN > .LE . IE-5  )  GOTO  150 

SMN-SMN-S 
GOTO  140 

150  $MX-TEKINT(OMX/S) 

SMX«S*< SMX-2 > 

160  IF  !!0MX-SMX)/!0MX-DMN).LE.lE-5>  GOTO  170 

SMX-SMX+S 
GOTO  160 

170  NOIV-NINT! ! SMX-SMN )/S ) 

0  TYPE  *, 'SCALE  ','  SMN-', SMN,'  SMX-', SMX. '  NDIV-', NDIV 

RETURN 


(continued) 


16 


Subroutine:  SCALE  (continued) 
Entry:  AXIS  (continued) 


C 

ENTRY  AXIS!XMN.XMX.NXDIV,TXMN.TXMX,YMN,YMX,NYDIV,TYMN,TYMX, IZL ) 
C  DRAWS  AND  LABELS  THE  X  &  Y  AXES 
C  REQUIRES: 

C  XMN-MIN  X  VAL 

C  XMX-MAX  X  VAL 

C  NXDIV-NUMBER  OF  X  SCALE  DIVISIONS 

C  TXMN-TERMINAL  X  VAL  CORRESPONDING  TO  MIN  X  VAL 

C  TXMX=TERMINAL  X  VAL  CORRESPONDING  TO  MAX  X  VAL 

C  ALSO  ALL  THE  ABOVE  FOR  Y 

C  IZL-0  DON’T  DRAW  ZERO  LINE  ,  IZL-1  DRAW  ZERO  LINE 

D  TYPE  *,  ‘  AXIS*  '  ,  XMN  ,  XMX  , NXDI V , TXMN ,  TXMX  ,  YMN  ,  YMX ,  NYD I V.TYMN  ,  TYMX 

T1 *AMAX 1 ( ABS ( XMN  )  ,ABS<  XMX  )  > 

Tl-lflr.*-( 3«TEKINT! !  TEKI NT! ALOG 10! TI +ABSC ! XMX-XMN  I/1E4 ) )  )  )/3.  )  ) 
X1-XMN/T1 

XDIV«<  XMX-XMN  )/! 2*NXDIV> 

XDX*( TXMX-TXMN >/!2*NXDIV) 

IX-TXMN 
I Y*TYMN 

CALL  TPLOT( IX-144, IY-20,0) 

N*2 

IF  (A8SIX1  KGT.  .001  )  N»NFMT(  XI  ) 

CALL  TERM! 2,0) 

WRITE!  6,21j0T)X1 
DO  180  1  =  1  , NXD I V*2 

Xl-<  XMN+ 1 *XD I V ) /Tl 
IF  <ABS( XI ) .LT. . 1 )  X1=0. 

IX-TXMN+!  1-1  )*XDX 
CALL  TPLOT( IX. IY,0> 

IX*TXMN+I*XDX 
CALL  TPLOT! IX. IY. 1 ) 

CALL  TPlOT ! IX, IY+20, 1 ) 

IF  (I/2..NE.AINT11/2.))  GOTO  180 
CALL  TPLOT! IX, IY+40, 1  ) 

CALL  TPLOT! IX-144, IY-20,0) 

N  =  2 

IF  !ABS( XI  )  ,GT. .001  )  N-NFMT(Xl) 

CALL  TERM! 2,0) 

WRITE! 6,2101X1 
1S0  CONTINUE 

CALL  TPLOT! IX-240. IY-128,0) 

CALL  TE RM!  2 ,0 ) 

IT1*ANINT< ALOG10IT1 > ) 

WRITE! 6,220)IT1 
C 

T1-AMAX1! ABS! YMN ), ABS! YMX ) ) 

Tl *  10. **! 3*TEKINT! <  TEKI NT! ALOG 10! Tl +ABS! <  YMX- YMN )/ 1E4 ) ) ) >/3. ) ) 
Y1=YMN/T1 

YOIV-! YMX-YMN  >/!2*NY0IV) 

YDX»! TYMX-TYMN >/! 2*NYDIV> 

IY-TYMN 

IX-TXMN 

CALL  TPLOT! IX-238, IY+80,0) 

N»2 

IF  ! ABS ( V 1  )  .ST . . 001 )  N*NFMT!Y1) 

CALL  TERM! 2,0) 

WRITE! 6,210>Y1 

DO  190  1*1 ,NY0rV*2 

Y 1 *! YMN+ I*YDIV)/T1 

IF  ! ABS! V 1  ) . LT . . 1 )  Y1*0. 

I  Y  »TYMN  +  <  1-1  )  *  Y  D  X 
CALL  TPLOT! IX, IY,0) 

I  Y*TYMN+ I  * YDX 


(continued) 
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Subroutine:  SCALE  (continued) 

Entry:  AXIS  (continued) 

CALL  TPLOT( IX, IY, 1 ) 

CALL  TP  LOTI  l'A  +  20 ,  IV,  1  ) 

IF  < 1/2. .NE.AINTt 1/2. >>  GOTO  190 
CALL  TP  LOT ( IX+40.IV.1  ) 

CALL  TPLOTI IX-288, IY+56,0) 

N-2 

IF  (  ABSI Yl) .GT. .001 >  N-NFMTIY1) 

CALL  TERMI2.0) 

WR I TE ( 6 , 2 10 ) Y 1 
190  CONTINUE 

CALL  TPLOTI IX-316, IY+160,0) 

CALL  TERM! 2 ,0 ) 

IT1=ANINT< ALOG10I T1 > > 

WRITE! 6,220) IT1 

ITXMN’TVMN 

ITXMX-TXMX 

ITYMN-TYMN 

ITYMX-TYMX 

CALL  TP  LOTI ITXMN , ITYMX ,0  ) 

CALL  TPLOTI ITXMX, ITYMX, 1  ) 

CALL  TPLOTI ITXMX, ITYMN, 1  ) 

IF  I IZL.EQ.0)  GOTO  200 
IF  I YMN*YMX . GT .0  >  GOTO  200 
I VZERO-I -YMN  >*! TYMX-TYMN  )/! YMX-YMN l+TYMN 
CALL  TPLOTI ITXMN, IY2ERO.0) 

CALL  TPLOTI ITXMX, IYZERO,  1  ) 

200  RETURN 

C  FORMAT  STATEMENTS 
210  FORMAT!'  ',FS.<N>) 

220  FORMAT!  '  ‘ ' I *E ' , 1 3 , '  ) '  ) 

END 


Subroutine:  PLREAD 


c  . 

C  : 

C  :  THIS  SUBROUTINE  IS  DESIGNED  TO  READ  X  AND  Y  COORDINATES  FROM  EITHER 

C  :  FORMATTED  OR  UNFORMATTED  FILES  CONTAINING  X,  V,  OR  X  AND  Y  DATA. 

C  :  AS  IT  READS  THE  NUMBER  OF  POINTS  SPECIFIED  I NPTS )  IT  ALSO  DETERMINES 

C  :  THE  MINIMUM  AND  MAXIMUM  VALUES  OF  EITHER  OR  BOTH  COORDINATES.  IT  ALSO 

C  :  MODIFIES  NPTS  IF  AN  ATTEMPT  IS  MADE  TO  READ  MORE  VALUES  I  OR  SETS  OF 

C  :  VALUES)  THAN  ARE  CONTAINED  IN  THE  SPECIFIED  FILE. 

C  : 

C  : . 

C  URITTEN  BY  BOB  ANDERSON  AND  TINA  RUGGIERO 


SUBROUTINE  PLREAD! X , Y . NPTS  ) 


(continued) 
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Subroutine:  PLREAD  (continued) 


C 

c 

c 

c 

c 

c 

c 


THE  FILE  NAME ( S )  ARE  SAVED  ALONG  WITH  THE  NUMBER  OF  FILES  AND  THE 
FILE  TVPE(S).  FILE  TYPE  -  2  •  NUMBER  OF  FILES  +  1  FOR  UNFORMATTED,  OR 
2  FOR  FORMATTED. 


COMMON  FILEX, FILEY, IFTYP 


C  . 

C  : 

C  :  ARRAYS  TO  SAVE  UP  TO  NPTS  COORDINATE  VALUES. 

C  : 

C  : . 


DIMENSION  X< 1  ) , Y( 1  ) 


C 

C 

c 

c 

c 

c 


ARRAYS  IN  COMMON  TO  SAVE  THE  FILE  NAME(S).  FILEX  IS  USED  FOR  ONLY  ONE 
FILE  . 


BYTE  FILEX(32),FILEY(32),FMT<32) 


C  . 

C  : 

C  :  DETERMINE  IFTYP  BY  FIRST  FINOING  OUT  HOW  MANY  FILES  ARE  TO  BE  USED. 

C  : 

C  : . 


50  CLOSE ( UNIT-5  > 

WRITE! 5, 1000)  v 

1000  FORMAT; /• SCOORDINATES  CONTAINED  IN  1  OR  2  FILES?  ’> 
READ! 5, 1010. END-50 >NF I LES 
1010  FORMAT! 14) 

IF! NFILES.LT. 1 .OR.NFILES.GT.2  )  GOTO  50 


C  . 

C  : 

C  :  AND  THEN  FIND  OUT  IF  IT  OR  THEY  ARE  FORMATTED  OR  UNFORMATTED. 

C  : 

C  : . 


(continued) 
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Subroutine:  PLREAD  (continued) 


1 00  CLOSE ( UN IT”5  ) 

WRITE?  5, 1020) 

1020  FORMAT? /.  'SARE  FILES  ? 1 JUNFORMATTED  OR  (  2 ) FORMATTED :  ’> 
READ<5, 1010, END-100)  I  TYPE 
IFTYP«NFILES"2+ITYPE 


C  . 

C  : 

C  :  NOW  READ  THE  DATA  UP  TO  NPTS.  MODIFY  NPTS  IF  <  PARAMETER  PASSED. 

C  : 

C 


10S 


IF? IFTYP.EQ.3) 
IF? IFTYP.EQ.4) 
IF? IFTYP.EQ.5  ) 
IF? IFTYP .EQ.6  ) 
GOTO  50 


GOTO  200 
GOTO  300 
GOTO  400 
GOTO  500 


C  . 

C  : 

C  :  BOTH  COORDINATES  ARE  CONTAINED  IN  ONE  FILE  AND  IT  IS  UNFORMATTED. 

C  : 

C  . . 


200  WRITE l 5 , 1050 ) 

1050  FORMAT? /' SFILENAME  FOR  X.Y  DATA:  *> 

READ?  5. 1060.  ENO»50)LEN.  FILE!? 

C  NOTICE  LAST  CHANCE  TO  START  OVERI  ?/'Z> 

1060  FORMAT ?  Q , 32A 1  ) 

F  ILEX?  LEN+ 1  >«0 

OPEN?  UN1T=*1 , NAME  =  F I  LEX. FORM= 'UNFORMATTED ' , TYPE* ’ OLD  1 .ERR-800) 
C  NOTICE  THERE  MUST  BE  AT  LEAST  ONE  POINT. 

DO  220  I»1 .NPTS 

READ? 1 ,ENO-240>X? I ) , Y? I ) 

J-I 

220  CONTINUE 

C  MODIFY  NPTS  TO  REFLECT  THE  ACTUAL  NUMBER  OF  POINTS  READ. 

240  NPTS-J 

CLOSE?  UNIT- 1  ) 

GOTO  900 


C  . 

C  : 

C  :  BOTH  COORDINATES  ARE  CONTAINED  IN  ONE  FILE  AND  IT  IS  FORMATTED. 

C  : 

C  : . 


(continued) 


Subroutine:  PLREAD  (continued) 

300  CLOSE  ( UN  IT-1 ) 

WRITE <5. 3000) 

3000  FORMAT! /• SENTER  FORMAT  TO  USE  FOR  READING:  (IE.  (2F10.0)  >  1  > 

READ(5,3010)FMT 
3010  FORMAT( 32A1 ) 

WRITE (5, 1050) 

REA0< 5, 1060, END-50 >LEN, FI  LEX 
FILEXCLEN  ♦  1  >-0 

OPEN(UNIT»l, NAME  «FIL£X,TYPE»‘OLD' .ERR-800) 

DO  330  l-l , NPTS 

READ< 1 .FMT.ERR-300, END-240 )X( I  )  .¥( I ) 

J-I 

330  CONTINUE 

GO  TO  240 

C 
C 
C 

c 
c 

400  WRITE (5,1 60 ) 

160  FORMAT( / , 1 SENTER  FILENAME  FOR  X  VALUES:  '> 

READ  ( 5 , 1060 , END-900 )LENX . F I LE X 
WRITE ( 5 , 360 ) 

360  F ORMAT (/.'SENTER  FILENAME  FOR  Y  VALUES:  ') 

REA0(5, 1060, END=>900)LENY, FILEY 
FILEX(LENX+1 )»0 
FILEY(LENY*1  )»0 

OPEN(UNIT«l , NAME-F ILEX, TYPE”1 OLD' . ERR-800. FORM- ’ UNFORMATTED  1  ) 

OP EN(  UNIT-2. NAME-F I  LEY. TYPE- 'OLD1 , ERR-800. FORM- ' UNFORMATTED '  > 

DO  460  I - 1 , NPTS 
READ( 1 .END-340 )X( I ) 

READ ( 2,END-340)Y( I ) 

J-I 

460  CONTINUE 

340  NPTS-J 

CLOSE ( UNIT- 1  ) 

CLOSE! UNIT-2  ) 

GO  TO  900 


C 
C 
C 

500  CLOSE (UN  IT- 1 ) 

WR I TE ( 5 , 3000 ) 

READ(5.3010)FMT 
WRITE! 5, 160) 

READ! 5, 260, END-900 >LENX,F ILEX 
260  FORMAT! Q, 32A1  ) 

WRITE! 5,360) 

READ!  5, 250, END-900  )LENY, FI  LEY 
F I LEX( LENX* 1  )-0 
FILEY!LFNY*1  >-0 

OPEN(UNIT-l .NAME -FI  LEX, ERR-800, TYPE -'OLD'  > 
OPEN(UNIT-2, NAME-F I LE Y , ERR-800, TYPE ■ ' OLD '  > 
DO  560  I - 1 , NPTS 
REA0( 1 ,FMT.ENO*340)X( I  ) 

REA0( 1 ,FMT. END-340 )Y( I > 

J-I 


COORDINATES  ARE  IN  TWO  FILES  AND  ARE  FORMATTED 


COORDINATES  ARE  CONTAINED  IN  TWO  FILES  AND  ARE  UNFORMATTED 


(continued) 


Subroutine:  PLREAD  (continued) 


56?  CONTINUE 

GO  TO  343 

803  WRITE (5. 801) 

801  FORMAT!//, •  YOU  ENTERED  WRONG  OATA  FILE(SH  1  > 

GO  TO  105 
900  RETURN 

ENO 


Subroutine:  PON 
Entry:  POFF 


SUBROUTINE  PON  (LUN) 

C  SUBROUTINE  TO  TURN  ON  OR  OFF  THE  TEKTRONIX  4662  PLOTTER. 

C  WRITTEN  BY  RICK  SCOTT 

BYTE  PLON<  3  ) , PLOFF ( 3 ) 

INTEGER  I PRM<  6  ) 

DATA  PLON/27,65,69/PLOFF/27,65,70/ 


CALL  GETADR  (IPRM.PLON) 

IPRM<  2  >«3 

CALL  QIO  < ”410. LUN, 24. , , IPRM,  ) 
CALL  WAITER  (24) 

RETURN 

ENTRY  POFF 

CALL  GETADR  (IPRM, PLOFF) 
IPRM<2)«3 

CALL  QIO  ( '410, LUN, 24, ,, IPRM, > 
CALL  WAITFR  (24) 

RETURN 

END 


Subroutine:  TXDASH 


C  TKOASH.FTN  O.D. GEORGE  OCTOBER  1975 

C 

C  THE  PURPOSE  OF  SUBROUTINE  TKDASH  IS  TO  PLOT  A  CURVE  AS  A  SERIES  OF 
C  ALTERNATING  BRITE  ANO  DARK  LINE  SEGMENTS  OF  ARC  LENGTHS  SPECIFIED 
C  BY  THE  USER 
C 

C  SUBROUTINE  TKDASH( I X , I Y , N . DASH , NDASH  ) 

C 

C  IX,  IY  ARE  SCREEN  OR  PAPER  COORDINATES 

C 

C  N  IS  THE  NUMBER  OR  INDEX  OF  THE  POINT  IX, IY 

C  N-I,  IS  TREATED  SEPERATELY,  N.GE.l 


(continued) 
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Subroutine 


TKDASH  (continued) 


OASH  IS  AN  ARRAY  OF  SCREEN  COORDINATE  ARC  LENGTHS 
FOR  ALTERNATELY  BRITE  AND  DARK  LINE  SEGMENTS 
ODD  INDICES  ARE  BRITE  SEGMENTS 
EVEN  INDICES  ARE  DARK  SEGMENTS 
I .E.  I  1  2  3  4 

DASH<  I  )  10  10  2  10 

BRITE  DARK  BRITE  DARK 

NDASH  IS  THE  LENGTH  OF  THE  DASH  ARRAY 

4  SHOULD  PROVIDE  A  WIDE  RANGE  OF  SYMBOLS 
TO  FORCE  ALTERNATE  BRITE-DK  LINE  SEGMENTS 
NDASH  IS  EVEN 

FOR  SOLID  LINE  USE  NDASH  =  1  1  DASH(1)=LARGE* 


SUBROUTINES  REQU I  RED : TPLOT 
***** 


SUBROUTINE  TKDASHI I X , I Y , N , DASH , NDASH > 
COMMON  /LUN  /LUN 
DIMENSION  DASH( NDASH) 

DATA  ZERO/0.0/ 

LUN-5 

I F { N.GT. 1 )GOTO  100 

THE  FIRST  POINT  INITIALIZES  THINGS 

XLAST-1X 

YLAST-IY 

LASTDK-l 

I DASH» 1 

OLDARC-ZERO 

CALL  TPLOT  ( IX. IY.0) 

RETURN 


ENTRY  FOR  N.GT.l 

00  CONTINUE 

X  =  IX 
Y*IY 

THE  CODE  BELOW  IS  REPEATED  UNTIL  HAVE  PLOTTED  SEGMENTS  TO 
POINT  IX. IY 

00  CONTINUE 


DX-X-XLAST 

DY=Y-YLAST 

ARC  =  SQRT<  DX*DX  +  DY*DY  ) 

IF( ARC. EQ. ZERO  )GOTO  1000 

THE  PATH  DEPENDS  ON  WHETHER  ARC  EXTENDS  BEYOND  THE  NEXT 
LINE  SEGMENT  SPECIFIED  IN  OASH(IDASH) 

I F  < ( OLDARC+ARC  )  .GE. ( DASH( I  DASH  >  >  >GOTO  300 

THE  ARC  TERMINATES  WITHIN  THE  CURRENT  LINE  SEGMENT 


(continued) 
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Subroutine:  TKDASH  (continued) 


X1NC-DX 

YINC-OY 

OLOARC-OLDARC+ARC 
GOTO  400 
C 

c 

C  THE  ARC  TERMINATES  AT  OR  BEYONO  THE  CURRENT  LINE  SEGMENT 
C 

c 

300  CONTINUE 

XINC-OX*' 0ASH< IDASH  l-OLDARC I/ARC 
YINC-OV-I DASH!  I0ASH  J-OLDARC l/ARC 
OLDARC-ZERO 
C 

400  CONTINUE 

X0-XLAST+XINC 

Y0«VLAST*YINC 

C 

C  IF  IDASH  IS  EVEN  PLOT  DARK  VECTOR 
C  IF  IDASH  IS  ODD  PLOT  BRITE  VECTOR 
C 

C  MOOIFY  TO  NOTE  THE  TRANSITION  FROM  LITE  TO  DARK 

C  MOVE  TO  EDGE  WITH  DK  VECTOR,  THEN  PUT  DOWN  DK  VECTOR  AT  EDGE 

C 

C  FOR  DK  VECTOR  SKIP  PLOTTING  UNTIL  SENSE  LITE-TO-DK  TRANSITION 
C 

I DARK-MOD ( IDASH. 2) 

IX0-X0 
I Y0-Y0 

IF  I I DARK . EQ .0 IGOTO  410 
IFILASTDK.EQ.IDARK  )GOTO  405 
IXLAST-XLAST 
IYLAST-YLAST 

CALL  TPLOT  ( I  XL AST, IYLAST.0) 

CALL  TPLOT  ( IXLAST, IYLAST, 1  ) 

405  CONTINUE 

CALL  TPLOT  ( I X0 , I Y0 . I DARK ) 

410  LASTDK- I  DARK 

C 

C  SETUP  FOR  NEXT  POINT 
C 

XLAST-X0 
'/LAST  -Y0 
C 

C  REPEAT  PLOTTING  UNTIL  ARC  TERMINATES  WITHIN  A 
C  SEGMENT  OF  DASH 
C 

C  I.E.  OLDARC.NE .ZERO 
C 

IF(OLOARC.NE.ZERO)GOTO  1000 
I  DASH-MODI  1  DASH , NDASH  > ♦ 1 
GOTO  200 

C 

C  EXIT 
C 

1000  CONTINUE 
RETURN 
ENO 
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Subroutine:  II  INMAX 


THIS  SUBROUTINE  DETERMINES  THE  MINIMUM  AND  MAXIMUM  VALUE  OF  ARRAY 
"A"  WHERE  N  IS  THE  NUMBER  OF  POINTS. 


WRITTEN  BY  TINA  RUGGIERO 
SUBROUTINE  M I NMAXI A .MIN ,MAX . N  ) 
REAL  AIN). MAX , M I N 
INTEGER  I.N 
MIN«A(  1  ) 

MAX-AI  1  ) 

DO  30  1-2. N 

IF  (A(  I KIT.MIN )MIN-A( I  ) 

IF  (  A<  I > .GT.MAX  )MAX-A( I  ) 

30  CONTINUE 

RETURN 
END 


Subroutine:  TPLOT 


SUBROUT' NE  Tr  LOT  (IX.IY.M) 

C  WRITTEM  BY  RICK  SCOTT 

C  REVISE)  BY  BOB  ANDERSON 

C  SUBROUTINE  TO  PLOT  ON  THE  TEKTRONIX  4010  AND  613  DISPLAY 

C  TERMINALS  (AS  CHOSEN  IN  -TERM-  SUBROUTINE). 

C  FORTRAN- I V  BUFFERED  VERSION. 

C  VALUES  TO  PLOT:  IX. IY 

C  MOOES  TO  PLOT:  M>0  (BRIGHT).  M-0  (DARK).  M<0  (POINT) 

C  LUN  6:  THIS  SUBROUTINE  USES  OIOB. 

C  REMEMBER  TO  BURGE  THE  BUFFER  WHEN  DONE  (WITH  TERM). 

BYTE  IOUT(3> 

1-0 

I OUT( 1 )-000 
IF  (M.GT.0)  GOTO  II 

C  INITIAL  PLOT,  DARK  PLOT,  POINT  PLOT- 

10  I-I  +  l 

I OUT ( I  )» " 35 

C  ALL  MODES— SEPARATE  COORDINATES  INTO  HIGH-  AND  LOW-ORDER  BYTES 

11  I-I+l 

IOUT ( I )* I Y/l 23+32 
I-I  +  l 

I OUT(  I )  =  ( I Y-4*< I V/4  )  )-4 
I OUT ( I  )* I  OUT ( I  )  +  ( IX-4*( I X / 4  )  >  +  96 
I-I  +  l 

1  OUT ( I  )* I Y- 1 2B-( IY/123) 

IOUT ( I >-96  +  ( IOUT< I  ) / 4  ) 

I-I  +  l 

IOUT ( I )» I  X/ 1 28  +  32 
I-I  +  l 

IO'JT<  I  )»  I X-  1  28*(  IX/128  ) 

IOUTt I  )*54+(  IOUT( I >/4 ) 


25 


Subroutine:  TPLOT  (continued) 


IF  1M.GE.0)  GOTO  20 
C  REINFORCE  FOR  POINT  PLOT 

12  1-1*1 

IOUT( I )-IOUT< 1-1  ) 

C  EXECUTE  QIO  AND  RETURN 

20  CALL  Q I  OB  (  11 510, 6, 24, 0,1  OUT, I, I SW) 

CALL  WAITER  (24) 

RETURN 

END 


Subroutine:  TERM 


SUBROUTINE  TERM(K,L) 

C  WRITTEN  BY  RICK  SCOTT 

C  THIS  SUBROUTINE  WILL  MANIPULATE  THE  TERMINAL  — 


c 

K-0, 

L-0 

ERASE 

SCREEN 

c 

K  =  1  . 

L-0 

COPY 

SCREEN 

c 

K-2, 

L-0 

RETURN  TO  ALPHA  MODE 

c 

K-3. 

L-0 

PURGE 

THE  OIO  BUFFER 

c 

K-B, 

L-C 

IMPLEMENT  MULTIPLEXER 

C  WHERE  B  IS  BOARD  SELECT  NUMBER  0-3 

C  WHERE  C  IS  CONTROL  NUMBER  TERMINAL! 1 >,  A(2),  B<3>,  C( 4 > 

C  (COMBINATIONS  OF  TERMINALS  ARE  ALLOWED) 

C  THIS  PARTICULAR  VERSION  IS  FOR  USE  WITH  BUFFERED 

C  PLOTTING,  AND  EVERY  CALL  TO  TERM  WILL  PURGE  THE  BUFFER. 

BYTE  IOUT ( 3  ) 

1-2 

IOUT ( 1 )- "  33  1  ESCAPE 

IF  (L.NE.0)  GOTO  10 

1  KX-K+1 

GOTO  (2,3,5, 40 ) , KX 

2  IOUT<2)-”14  1CLEAR  THE  SCREEN 

GOTO  30 

3  IOUT ( 2  )- " 27  1  COPY  THE  SCREEN 

GOTO  30 

5  I OUT! 1  ) * “ 37  ! RETURN  TO  ALPHA  MODE 

1-1 

GOTO  30 

C  PREPARE  ASCII  CHARACTERS  FOR  MUX  BOARD  AND  CONTROL  NUMBERS 

10  IOUT! 2  >-K+*60 

IOUT! 3  >-2**< L-l  )  +  " 60 
1-3 


C  OUTPUT  THE  CONTROL  SEQUENCE 

30  CALL  QIOB  ( " 6 10 . 6 , 24 , 0 , I  OUT . I , I SW ) 

C  AND  PURGE  THE  BUFFER 

40  CALL  QIOP  ( "510,6,24,0. IDAT,0,ISW> 


(continued) 
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Subroutine:  TERM  (continued) 


C  PAUSE  A  MOMENT  IF  SCREEN  IS  BEING  CLEARED 

IF  ( (  K  +  L ) . NE .0  )  RETURN 
CALL  WAIT  < 1 , 2 , M ) 

RETURN 

END 


Subroutine:  A4662 


SUBROUTINE  A4662  < L UN , DEV , KX , KY , KA, KF  ) 

C  WRITTEN  BY  RICK  SCOTT 

SUBROUTINE  TO  SET  UP  THE  ALPHABET  OF  PLOTTER  DEV  ON  LINE  LUN- 
SI2E  OF  CHARACTERS  <X  AND  Y>,  ANGLE,  AND  FONT. 

ENTRY  A4662R  WILL  RESET  DEFAULT  VALUES,  WHICH  ARE-- 
SIZE  (  56X88  ),  ANGLE  (0),  FONT  (0). 

INTEGER  IPRMC6) 

BYTE  STRING(23),IRST(3),D£V 

DATA  STRING/ “33,  '  A '  ,  '  T '  , 0,  *33  .  ‘ A  ‘  ,  '  I  *  ,3 *0,  *  .  *  ,3*0.4, 

1 *33, 'A' , *0 1 ,4*0,4/IRST/“33, 'A‘ , ' V‘ / 

STRING(2)-DEV 
STRING(  4  )»KF ♦  "  60 
STRING! 6  )»DEV 

ENCODE  (3, 100,STRING!8)  )  KX 
ENCODE  (3,103, STRING! 12))  KY 
1  00  FORMAT  (13) 

STRING! 17  )-DEV 

ENCODE  ( 4 , 101 .STRING! IS ) )  KA 
101  FORMAT  (14) 

CALL  GETADR  ( IPRM, STRING  ) 

I PRM! 2  )*23 

200  CALL  QIO  ! “410,LUN,24, , , IPRM,  ) 

CALL  WAITFR  (24) 

RETURN 

ENTRY  A4662R  ( LUN , DEV ) 

I RST! 2 ) "DEV 

CALL  GETADR  <IPRM,IRST) 

IPRM! 2  )*3 
GOTO  200 

END 
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APPENDIX  C 


1  ? 


COMPILATION  AND  TASKBUILDING 


The  Digital  Equipment  Corporation  RSX-11M  operating  system  provides  an 
indirect  command  file  processor  that  will  pass  commands  to  a  system  utility 
from  a  file  (indirectly)  rather  than  interactively  (directly)  from  your 
terminal.  This  facility  allows  the  user  to  create  a  file  containing  commands 
only  once,  minimizing  effort  in  rebuilding  subsequent  tasks  and  helping  to 
eliminate  typographical  or  syntax  errors. 

The  indriect-command-f ile  processor  allows  multiple  levels  of  files, 
which  expands  the  flexibility  of  its  use.  In  the  examples  provided,  note  the 
second  level  of  indirectness  used  in  PLOTTER.CMD.  The  system-utility  task 
name  can  be  included  in  the  indirect  command  file,  as  in  Example  1,  or  can  be 
external  to  the  command  file  as  in  Examples  2  and  3.  The  processor  completely 
executes  one  command  before  it  goes  on  to  the  next  command.  The  current 
command  is  also  displayed  on  the  user's  terminal  allowing  the  user  to  monitor 
progress. 

Example  1  is  an  indirect  command  file  used  to  completely  manage  the 
rebuilding  of  the  task  PLOTTER.  The  semicolon  is  used  to  denote  comment  and 
is  therefore  ignored.  Lines  2  through  6  in  Example  1  contain  commands  to  the 
system  utility  PIP  (Peripheral  Interchange  Program)  to  delete  or  purge  the 
user's  area  of  unnecessary  or  unwanted  files.  Line  7  is  a  call  to  the  system 
FORTRAN  Four  Plus  compiler  (F4P) ,  passing  it  a  second  level  of  indirect 
commands  containing  F4p  commands.  Finally,  line  8  in  Example  1  instructs  the 
System  Task  Building  (TKB)  to  receive  its  commands  from  the  file  PLOTTER. TKB. 


? PLOTTER.CMD 
PIP  PLOTTER. TSK;*/DE 
PIP  * . FTN/PU : 3 
PIP  * . F4P/PU 
PIP  * . TK8/PU 
PIP  * .OBJ ( #/DE 
F4P  (JPLOTTER . F4P 
TKB  (JPLOTTER. TKB 

Example  1 


Example  2  is  an  indirect  command  file  containing  commands  for  F4P  to 
accomplish  recompilation  of  all  the  FORTRAN  source  files  used  in  the  task 
PLOTTER. 


r 


t  RE -COMP  I LE  SOURCES 

PLOTTER "PLOTTER 

TERM-TERM 

TPLOT-TPLOT 

SCALE-SCALE 

MINMAX-MINMAX 

QIOB-OIOB 

PON-PON 

XYPLOT-XYPLOT 

A4662-A4662 

PLREAD-PLREAO 

TKDASH-TKDASH 


Example  2 

The  default  extensions  are  .  FTN  for  the  source  files  (right  of  equal  sign)  and 
.OBJ  for  the  created  object  files  (left).  Example  3  is  an  indirect  command 
file  containing  commands  for  TKB  to  accomplish  linking  of  all  the  necessary 
objects  and  allocation  of  space  for  a  new  task  image.  The  default  extension 
for  the  input  file(s)  is  .OBJ  and  the  output  extension  is  .TSK. 


s PLOTTER. TKB 

PLOTTER-PLOTTER, TERM. TPLOT, SCALE, MINMAX.QIOB, PON, XYPLOT , A4662 . PLREAD .TKDASH 
/ 

ASG-TI :5:6,SY: 1 :  2 
ACTFIL-3 

Example  3 

To  execute  the  command  file  PLOTTER.CMD,  the  user  types  ' 0PLOTTER' . 


APPENDIX  D 


UEDIT 


The  program  UEDIT  allows  the  user  to  edit  an  unformatted  file  that  has 
been  created.  Data  may  be  changed  or  new  data  may  be  added. 


PROGRAM  'JED IT 
C 

BYTE  FU.E<3Z),ANS(4) 

C 

C 

CALL  ERRS£T<  29  ...  FALSE  ....  FALSE  ...  ) 

CALL  ERRSETI 39 . ,. FAL SE FALSE ,  > 

C -  GET  THE  FILENAME  - 

C 

50  WRITE  (5,1000) 

1000  FORMAT  (/'SENTER  FILENAME:' > 

READ  (  5,  1010, END-800)  LF.FILE 
1010  FORMAT  (Q.32A1  ) 

F  ILE(  LF»1  >=>0 
C 

OPEN  (UNIT«1 .NAME-FILE, TYPE-'OLD' . FORM- ' UNFORMATTED ' . 
1  ERR-700) 

C 

C -  CHECK  FOR  VERSION  *  - 

C 

90  DO  100  I-l.LF 

IF  (  F ILE ( I >.EO. ' i '  )  FILE! I >-0 
100  CONTINUE 

C 

C-—  OPEN  THE  TEMPORARY  WORK  FILE - 

C 

OPEN  (  UN  IT-2 , NAME  - ' TEMP . DAT ' , ACCESS- ’ D I RECT ' . 

1  FORM- 'UNFORMATTED' . RECORDS IZE - 1 , TYP E -' NEW ' ) 

C 

C -  XFER  DATA  TO  TEMP  WORK  FILE  - 

C 

NREC-0 

200  READ  <1, END-250)  VALUE 

NREC-NREC+1 
WRITE  (2'NREC)  VALUE 
GOTO  200 
C 

250  CLOSE  (UNIT-1) 

C 

C -  READY  TO  EDIT  DATA  FILE  - 

CALL  EDIT  (HREC) 

C 

C -  FINISHED  WITH  EDIT  - 

C 

OPEN  (UNIT-1 .NAME-FILE, FORM- ' UNFORMATTED ' .TYPE- ' NEW'  > 
C 

C -  RE-WRITE  DATA  - 

C 

DO  400  I-l.NREC 
READ  (2'  I  )  VALUE 
WRITE  ( l  )  VALUE 
400  CONTINUE 

GOTO  800 


(continued) 


c 

c - 

c 

700 

1050 

1055 


C 

C - 

C 

800 

1060 


OPEN  FAILURE  ON  INPUT  FILE  — 

WRITE  (5.1050) 

FORMAT  (/'SCREATE  NEW  FILE?') 

READ  ( 5, 1055. END-800)  ANS 
FORMAT  <  4A1 > 

IF  <ANS< 1 >.NE. ' V )  GOTO  50 

OPEN  (UNIT-1. NAME-FILE. FORM- ' UNFORMATTE D ' .TYPE- 1  NEW’  ) 
GOTO  90 

GO  BYE  BYE 
WRITE  (5,1060) 

FORMAT  (/'  EOITTING  SESSION  COMPLETE.') 

CLOSE  (UNIT-1 > 

CLOSE  (UNIT-2, DISPOSE- ‘ DELETE ' > 

CALL  EXIT 
END 
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